home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / tool / artemis1 / src / pen.men < prev    next >
Encoding:
Text File  |  1994-01-31  |  3.9 KB  |  107 lines
  1. menubegin penmenu
  2.     title "ペン先の形状設定"
  3.     size 300 284
  4.     dispfunc drawPenMenu
  5.     erasefunc erasePenMenu
  6.     button [
  7.         [ locate 8 24 string "ペン先候補" ]                #0
  8.         [ locate 32 40 size 36 36 box White id itemPenKouho0 ]
  9.         [ locate 32+40 40 size 36 36 box White id itemPenKouho1 ]
  10.         [ locate 32+40*2 40 size 36 36 box White id itemPenKouho2 ]
  11.         [ locate 32+40*3 40 size 36 36 box White id itemPenKouho3 ]
  12.         [ locate 32+40*4 40 size 36 36 box White id itemPenKouho4 ]
  13.     ]
  14.     # button [ [ locate 8 80 string "ペン種別" ] ]        #6
  15.     # selector [
  16.     #     [ [ locate 32 96 string "極細ペン" ]
  17.     #       [ locate 128 96 string "丸ペン" ]
  18.     #       [ locate 224 96 string "四角ペン" ]
  19.     #       [ locate 32 112 string "任意ペン(16)" ]
  20.     #       [ locate 128 112 string "任意ペン(32)" ] ]
  21.     # ]
  22.     button [ [ locate 8 128-48+12 string "ペンの濃度調整" ] ]    #7
  23.     scrollbar [ [ locate 64 144-48+12 size 70 allsize 256+50 dspsize 50 dispnum
  24.                   barfunc setpengray id barPenGray ] ] #0
  25.     button [ [ locate 8 160-48+12 string "濃度の中心集中" ] ]
  26.     selector [
  27.         [ [ locate 32 176-48+12 string "あり" ]
  28.           [ locate 80 176-48+12 string "なし" ] id selCenterGray ]
  29.     ]
  30.     # button [ [ locate 8 192 string "丸(四角)ペンの大きさ" ] ]
  31.     # scrollbar [ [ locate 64 208 size 70 allsize 32+5 dspsize 5 dispnum ] ] #1
  32.     # button [ [ locate 8 224 string "回転角" ] ]
  33.     # scrollbar [ [ locate 8+24 240 size 58 allsize 360+60 dspsize 60 dispnum ] ] #2
  34.     # button [ [ locate 8 256 string "倍率" ] ]
  35.     # scrollbar [ [ locate 8+24 272 size 58 allsize 200+40 dspsize 40 dispnum ] ] #3
  36.     button [
  37.         [ locate 150 144-60 string "任意ペン選択" ]
  38.         [ locate 160 160-60 size ANYPENXLEN*3 ANYPENYLEN*4 box White
  39.           id itemPenList ]
  40.     ]
  41.     scrollbar [ [ locate 160+ANYPENXLEN*3+2 160-60 size ANYPENYLEN*4
  42.                   allsize 200+40 dspsize 40 barfunc disp_anypenlist
  43.                   vertical id barPenList ] ]
  44.     button [
  45.         [ locate 160 160+40*4+8-70 string boxed "任意ペンの編集" id itemPenEdit ]
  46.         [ locate 32 240 size 20 20 box White ]
  47.         [ locate 32 240 size 20 20 pict Psave id btnSave ]
  48.         [ locate 32+32 240 size 20 20 box White ]
  49.         [ locate 32+32 240 size 20 20 pict Pload id btnLoad ]
  50.     ]
  51. menuend
  52.  
  53. menubegin peneditmenu
  54.     title "任意ペンの編集"
  55.     size 300 380
  56.     dispfunc disp_peneditmenu
  57.     erasefunc erase_peneditmenu
  58.     let CBARX 16
  59.     let CBARY 330
  60.     button [
  61.         [ locate 16 32 size DOTXLEN*32 DOTYLEN*32
  62.           id itemPenZoom ]
  63.         # [ locate 16 300 size 20 20 box White noselect ]
  64.         # [ locate 16 300 size 20 20 pict Pfpset
  65.         #   id itemFpset ]
  66.         # [ locate 16+20 300 size 20 20 box White noselect ]
  67.         # [ locate 16+20 300 size 20 20 pict Pfline
  68.         #   id itemFline ]
  69.         [ locate 16+20*2 300 size 20 20 box White noselect ]
  70.         [ locate 16+20*2 300 size 20 20 pict Pline
  71.           id itemLine ]
  72.         [ locate 16+20*3 300 size 20 20 box White noselect ]
  73.         [ locate 16+20*3 300 size 20 20 pict Pbox
  74.           id itemBox ]
  75.         [ locate 16+20*4 300 size 20 20 box White noselect ]
  76.         [ locate 16+20*4 300 size 20 20 pict Pboxfill
  77.           id itemBoxFill ]
  78.         [ locate 16+20*5 300 size 20 20 box White noselect ]
  79.         [ locate 16+20*5 300 size 20 20 pict Pelps
  80.           id itemEllipse ]
  81.         [ locate 16+20*6 300 size 20 20 box White noselect ]
  82.         [ locate 16+20*6 300 size 20 20 pict Pelpsfill
  83.           id itemEllipseFill ]
  84.         # [ locate 16+20*7 300 size 20 20 box White noselect ]
  85.         # [ locate 16+20*7 300 size 20 20 pict Ppaint
  86.         #   id itemPaint ]
  87.         [ locate CBARX CBARY string "設定濃度" ]
  88.     ]
  89.     scrollbar [
  90.         [ locate CBARX+48+32 CBARY size 90 allsize 256+50 dspsize 50
  91.           dsppos 256 dispnum  id barSetGray ]
  92.     ]
  93. menuend
  94.  
  95. #    button [
  96. #        [ locate 16 52  size 80 200  dispfunc putpenlist ]
  97. #        [ locate 128 52 size 128 128 dispfunc zoomupPenData ]
  98. #        [ locate 128 196 size 20 20  dispfunc _putGraySample ]
  99. #        [ locate 128 232 size 20*2 20 box White ] # アイコンベース
  100. #        [ locate 128 232 size 20 20 pict Psave ]
  101. #        [ locate 148 232 size 20 20 pict Pload ]
  102. #    ]
  103. #    scrollbar [
  104. #        [ locate 188 201 size 68 allsize 256+50 dspsize 50
  105. #           barfunc putGraySample dispnum ]
  106. #    ]
  107.